15 POKE56,40:CLR:PRINT"";:DV=PEEK(186):IFDV<8ORDV>16THENDV=8
37 SYS57812"BIBLE 3000",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
38 SYS57812"DTEXT 2800",DV,0:POKE780,0:POKE781,0:POKE782,40:SYS65493
40 MT=12288:DT=10240:DIMFI$(10),D%(7),B$(66)
50 POKE53374,0:POKE53366,0:POKE53375,0:FORI=1TO2000:NEXT
55 SYSMT+201,95,105,4,10,14,1,14,7,6,1,0,0
60 SYS10240,"BOOKS",DV,80*256:SYSMT+36,80*256:WB=PEEK(20):SYSMT+54:BL=F%
66 FORI=0TO65:READB$(I):NEXT:BB=0:BC=1:BV=1:POKE53272,23
80 POKE650,128:SH=MT+96:FR=MT+6:CE=MT+78:BO=MT+3:AT=CE-3
85 X=0:FORI=8TO29:IFI<>14THENCLOSE2:OPEN2,I,2:CLOSE2:IFST=0THEND%(X)=I:X=X+1
90 NEXT:FORI=0TOX:IFD%(I)=DVTHENA=I
95 NEXT:ND=X:I=D%(0):D%(A)=I:D%(0)=DV:DX=0
100 T$="[194]IBLE [211]EARCH":A$(1)="[211]TART [193] [211]EARCH      ([211])
125 A$(2)[178]"PEEKACK TO (null)AIN (null)ODULE ((null))":A$(3)[178]"(null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)  ((null))":H$[178]" SMQ
145 SYSMT+198,T$,3,A$(1),A$(2),A$(3),H$:ONF%GOSUB300,190,190,210:GOTO100
190 F$="COMPLEAT OT":GOTO2300
210 F$="HELLO CONNECT":GOTO2300
300 SYSMT+36,80*256:SYSMT,1,38,1,23,95,105,15,12
310 SYSSH,2,2+WB,3,20:SYSBO,3,3+WB,14,19,160,15:SYSAT,4,15,"[155][208]LEASE SELECT EACH
330 [158]AT,4,16,"BOOK TO BE SEARCHED":[158]AT,4,17,"W/(null)VAL(null)(null)(null)(null). (null)LEFT$-(null) TO
350 SYSAT,4,18,"FIND BOOK. [198]1 [206]EXT":SYSMT+42,3,3+WB,2,12,1,12,7,1,BB,65,1:GOSUB2400:RETURN
370 WW$=W$:SYSMT+84,W$:F$=W$:T=0
380 GOSUB1000:IFF%=-1ORVAL(A$)THENIFT<NDTHENGOSUB2100:GOTO380
390 IFF%=-1THENE$="ERROR BNF":GOSUB2200:RETURN
400 SYSMT+48,0:SYSMT+27,BL:SYSMT+30,WW$,BO%,1:SYSDT,W$,D%(DX),84*256:HS=0:LH$=W$
1000 SYSMT+39,"$:"+F$,D%(DX),208*256:SYSMT+48,0:CLOSE15:OPEN15,D%(DX),15:INPUT#15,A$,E$:CLOSE15:RETURN
2100 DX=DX+1:IFD%(DX)=0THENDX=0
2110 T=T+1:RETURN
2200 SYSSH,0,39,0,24:SYSMT+48,0:SYSMT+15,E$,DV,28000:SYSMT+36,28000:EN=F%-1
2205 IFE$="ERROR BNF"THENSYSMT+30,"   [201] COULDN'T FIND "+CHR$(34)+F$+CHR$(34),1,1
2210 SYSBO,0,39,1,19,160,7:SYSFR,0,39,0,20,2:SYSMT+42,1,38,1,19,1,7,1,1,0,EN-1,0:RETURN
2300 T=0
2310 GOSUB1000:IFVAL(A$)ORF%<0THENIFT<NDTHENGOSUB2100:GOTO2310
2320 IFVAL(A$)=0ANDF%>-1THEN40000
2330 E$="ERROR BNF":GOTO2200
2400 PRINT"[159]";:SYSMT+27,BL:POKE828,0:SYSMT+213,0,65:IFF%>-1THEN2460
2410 A$="[206]O BOOKS SELECTED":GOSUB5020:POKE1998,0:RETURN
2460 SYSBO,2,37,22,22,32,0:SYSAT,2,22,"[146][158][211]EARCH:":SYSMT+51,1,3,20,"":S$=W$:IFS$=""THENRETURN
2480 OF$="":A$="[199]ENERATE [207]UTPUT [198]ILE ([217]/[206])?":GOSUB5020:GETA$:IFA$<>"Y"THEN2560
2490 SYSBO,2,37,22,22,32,0:SYSAT,2,22,"[146][159][207]UTFILE NAME: 
2500 [158]MT[170]51,1,7,16,"@0:SEARCH.TXT":OF$[178]W$
2515 [158]BO,2,37,22,22,32,0:[158]AT,2,22,"WAITOPENSTR$EVICE NUMBER: 
2520 SYSMT+51,1,7,2,MID$(STR$(DV),2):OF=VAL(W$):IFOF=0THENOF$="
2530 [139]OF$[179][177]""[167][159]5,OF,7,OF$[170]",S,W":[152]5,[199](13)[199](13)
2560 [129]BB[178]0[164]65:[158]MT[170]48,0:[158]MT[170]27,BL:[158]MT[170]33,BB:BO$[178]W$
2570 [139]F%[167]F$[178]B$(BB)[170]"???-???":A$[178]"(null)EARCHING "[170]W$:[141]5000:[141]4000
2575 [130]:[160]5:[151]186,DV:[138]:[144]:[158]MT[170]27,BN:[158]MT[170]33,BO%:[142]
4000 DX[178]0
4010 [141]1000:[139]F%[179]0[167][139]DX[179](ND[171]1)[167]DX[178]DX[170]1:[137]4010
4020 [139]F%[179]0[167][142]
4025 FI[178]F%:[158]MT[170]48,1:[129]J[178]0[164]FI:[158]MT[170]33,J:FI$(J)[178]W$:[130]:JJ[178]0
4030 [139]OF[178]D%(DX)[167][160]5
4033 [158]MT[170]48,0:[158]DT,FI$(JJ),D%(DX),84[172]256:[158]MT[170]36,84[172]256:EN[178]F%[171]2:SP[178]0
4040 [158]MT[170]210,S$,SP,EN:[139]F%[177][171]1[167][141]5100
4090 [139]JJ[179]FI[167]JJ[178]JJ[170]1:[137]4030
5000 [158]MT,0,39,0,24,107,115,4,10
5005 [158]SH,0,37,16,21:[158]FR,1,38,16,20,15:[158]BO,2,37,17,19,160,1:[153]"";:[158]CE,18,A$:[142]
5020 [141]5000:[151]198,0:[146]198,15:[142]
5100 SP[178]F%:K[178]0
5110 [139](SP[171]K)[177]0[167]K[178]K[170]1:[158]MT[170]33,SP[171]K:[139]W$[179][177]""[167]5110
5120 BV[178]SP[171]K:K[178]0:[139]SP[177]EN[167]EV[178]SP:[142]
5140 [139](SP[170]K)[179]EN[167]K[178]K[170]1:[158]MT[170]33,SP[170]K:[139]W$[179][177]""[167]5140
5150 EV[178]SP[170]K:[139]EV[177]EN[167]EV[178]EN
5160 A$[178]" ":[141]5000:[158]BO,0,39,0,0,160,15:[158]BO,0,39,1,1,160,1:[158]BO,0,39,2,2,160,12
5166 [158]BO,0,39,4,4,160,1:[158]BO,0,39,5,14,160,15:[158]BO,0,39,15,15,160,12
5167 [153]"";:[158]CE,1,BO$:A[178]0:[153]"LIST";:[129]L[178]BV[164]BV[170]9:[139]L[179]EN[167][158]MT[170]33,L:[158]AT,1,5[170]A,W$:A[178]A[170]1
5180 [130]:[139]OF$[179][177]""[167]A$[178]"(null)RITING TO "[170]OF$:[141]5005:[141]5600:[137]5300
5200 [153]"";:[158]AT,3,17,"ASCIND (null)EXT (null)CCURRENCE       ((null))
5220 SYSAT,3,18,"[208]RINT [212]HIS [207]CCURRENCE      ([208])
5230 [158]AT,3,19,"(null)UIT AND (null)E-START (null)ROGRAM  ((null))
5240 SYSMT+63,17,2,37,3,1,7,"NPQ":ONF%GOTO5300,5400,5500
5300 IFSP=ENTHENRETURN
5305 SP=EV:SYSMT+210,S$,SP,EN:IFF%>-1THEN5100
5310 RETURN
5400 CLOSE4:OPEN4,4,7:CLOSE4:IFSTTHEN5240
5405 OPEN4,4,7:IFLB$<>BO$THENPRINT#4,"[**"S$" FOUND IN "BO$"**]":LB$=BO$
5410 FORL=BVTOEV:SYSMT+33,L:PRINT#4,W$:NEXT:CLOSE4:POKE631,ASC("N"):POKE198,1:GOTO5240
5500 CLOSE5:POKE186,DV:RUN
5600 IFOF=D%(DX)THENCLOSE5:OPEN5,OF,5,OF$+",S,A
5605 [139]LB$[179][177]BO$[167][152]5,"[**"S$" FOUND IN "BO$"**]":LB$[178]BO$
5610 [129]L[178]BV[164]EV:[158]MT[170]33,L:[152]5,W$:[130]:[142]
10000 _"@0:O.WHOLE SEARCH"
10001 [144]
40000 [151]53374,0:[151]53367,0:[151]53375,0:Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40100 [153]"LOADL(null)"Q$F$Q$","D%(DX):[153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
41000 [131]"GENE","EXOD","LEVI","NUMB","DEUT","JOSH","JUDG","RUTH","1SAM","2SAM
41100 DATA"1KIN","2KIN","1CHR","2CHR","EZRA","NEHI","ESTH","JOB","PSAL","PROV
41200 [131]"ECCL","SONG","ISAI","JERE","LAME","EZEK","DANI","HOSE","JOEL","AMOS
41300 DATA"OBAD","JONA","MICA","NAHU","HABA","ZEPH","HAGG","ZECH","MALA","MATT
41400 [131]"MARK","LUKE","JOHN","ACTS","ROMA","1COR","2COR","GALA","EPHE","PHIL
41500 DATA"COLL","1THE","2THE","1TIM","2TIM","TITU","PHMN","HEBR","JAME","1PET
41600 [131]"2PET","1JOH","2JOH","3JOH","JUDE","REVE